Explorers of the New World/Explorers of the New World.iso/pc/exdata.dir/00837_checkcasts.ls

Text File | 1995-09-10 | 815 b | 25 lines

on checkcasts startFrame, endFrame
  go(startFrame)
  set currentFrame to startFrame
  set pictureCastName to EMPTY
  set mapCastName to EMPTY
  repeat while currentFrame < endFrame
    go(currentFrame)
    if the castNum of sprite 26 <> 0 then
      set pictureCastName to the name of cast the castNum of sprite 26
    end if
    go(currentFrame + 1)
    if the castNum of sprite 25 <> 0 then
      beep()
      set mapCastName to the name of cast the castNum of sprite 25
    end if
    put "mapCastName = " & mapCastName
    if not voidp(pictureCastName) and not voidp(mapCastName) then
      if item 1 of pictureCastName <> word 1 of mapCastName then
        put "frame " & currentFrame && pictureCastName & " <> " & mapCastName
      end if
    end if
    set currentFrame to currentFrame + 5
  end repeat
end